home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
The World of Computer Software.iso
/
graph-3d.zip
/
CROSS-SE.BAS
< prev
next >
Wrap
BASIC Source File
|
1989-04-23
|
459b
|
21 lines
10 key off:screen 2:cls
50 for i=-4 to 4
60 a=320+30*i:b=100
70 draw "BM"+str$(a)+","+str$(b)+"d5"
80 next i
90 for i=-3 to 3
100 a=318:b=100-30*i
110 draw "BM"+str$(a)+","+str$(b)+"r5"
120 next i
130 for i=-120 to 0
140 gosub 1000
150 y=int(30*z+.5)
160 pset (320+i,100-y)
165 pset (320-i,100-y)
170 next i
180 sound 3000,.1:t=timer:while t+1.5>timer:wend
190 if inkey$="" then 180
200 end
1000 r=-i/30
1010 z=3*exp(-r*r/4)-1
1020 return